home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / propmgr2.arc / DUPCHECK.ACG < prev    next >
Encoding:
Text File  |  1979-12-31  |  512 b   |  22 lines
  1. * DATE 08/27/84  13:13
  2. * dupcheck.cmd
  3. SAVE TO temp1
  4. RELE ALL
  5. GO TOP
  6. STOR t TO more
  7. DO WHIL more .AND. (.NOT. EOF)
  8.  ERAS
  9.  ?
  10.  ?
  11.  ?
  12.  ?
  13.  ?
  14.  ? '             Searching for duplicate records'
  15.  STOR !(lastname) TO oldlname
  16.  SKIP
  17.  IF oldlname = !(lastname) .AND. (.NOT. EOF)
  18.   DO duprec.acg
  19.  ENDI
  20. ENDD
  21. REST FROM temp1
  22.